home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SAMPLES / SUITE / DW08_S4.APR / SCRIPT / ApproachDoc / Blank Database / Body / btnEnterComment.s (.txt) < prev    next >
Null Bytes Alternating  |  1996-10-27  |  4KB  |  63 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, _
  5. Flags As Long)
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As BUTTON
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14. End Sub
  15.  
  16. '++LotusScript Development Environment:2:2:Click:2:12
  17. Sub Click(Source As Button, X As Long, Y As Long, _
  18. Flags As Long)
  19. 'Click event for the btnEnterComment button object.
  20. 'Prompts the user for input, appends today's date to the
  21. 'user's comment, and appends the comment to each
  22. 'record in the found set.
  23. ' * RUNTIME DEPENDENCIES
  24. ' * Files: This script requires a field named "Notes".
  25.     
  26.      'Create a DocWindow object.
  27.     Dim MyDocWin As DocWindow
  28.     'Retrieve the active DocWindow.
  29.     Set MyDocWin = CurrentApplication.ActiveDocWindow
  30.     
  31.     Dim UserInput  As String           'Store user's input
  32.     Dim NoteEntry As String        'Store the input with today's date
  33.     Dim PreviousEntries As String    'Store existing contents of Note
  34.     Dim WholeNote As String    'Store all the Note contents
  35.     Dim I As Integer                'Index of found set
  36.     
  37.     'Get input from user.
  38.     UserInput = Inputbox$("Enter your comments", , ,300,300)
  39.     'Check that the user entered a comment.
  40.     If UserInput <> "" Then
  41.         'Append today's date to the user's input.
  42.         NoteEntry = Date$ & ": " & UserInput    
  43.         
  44.         'Loop through each record in the found set and 
  45.         'update the Note field.
  46.         
  47.         MyDocWin.FirstRecord        'Go to first record.
  48.         
  49.         'Loop through the number of records in the found set
  50.         For I = 1 To MyDocWin.NumRecordsFound
  51.             'Store the existing contents of the Note field.
  52.             PreviousEntries = Source.Note.Text
  53.             'Append the new entry to the existing ones.
  54.             WholeNote = PreviousEntries & " " & NoteEntry & "."
  55.             'Insert the new Note in the field.
  56.             Source.Note.Text = WholeNote
  57.             'Go to the next record in the found set.
  58.             MyDocWin.NextRecord
  59.         Next    'Record in the found set
  60.         
  61.     End If    'If the user entered a comment
  62.     
  63. End Sub   'Click event for btnEnterComment